home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Rice_CMS / gopher24 / gopgen.exec < prev    next >
Encoding:
Text File  |  1993-01-25  |  2.2 KB  |  104 lines
  1. /*
  2.  *        Name: GOPGEN EXEC
  3.  *              Generate files used by the CMS Gopher server
  4.  *      Author: Rick Troth, Rice University, Information Systems
  5.  *        Date: 1993-Jan-22
  6.  */
  7.  
  8. Parse Upper Arg what args '(' opts ')' .
  9.  
  10. Select  /*  what  */
  11.  
  12.     When  Abbrev("INDEX",what,1)    Then  Signal  INDEX
  13.     When  Abbrev("MESSAGES",what,1) Then  Signal  MESSAGES
  14.     When  Abbrev("MSGS",what,1)     Then  Signal  MESSAGES
  15.     When  Left(what,6) = "GOPCLI"   Then  Signal  REXX
  16.     When  Left(what,6) = "GOPSRV"   Then  Signal  REXX
  17.     When  Abbrev("EDIT",what,1)     Then  Signal  EDIT
  18.  
  19.     Otherwise Do
  20.         'XMITMSG 3 WHAT (ERRMSG'
  21.         rc = 24
  22.         End  /*  Otherwise  Do  */
  23.  
  24.     End  /*  Select  what */
  25.  
  26. Exit rc
  27.  
  28.  
  29.  
  30. /* ------------------------------------------------------------ MESSAGES
  31.  */
  32. MESSAGES:
  33.  
  34. Parse Var args lang .
  35. If lang = "" Then ft = "MESSAGES"
  36.              Else ft = "MSG" || lang
  37.  
  38. Address "CMS" 'STATE GOPUME' ft '*'
  39. 'PIPE COMMAND LISTFILE GOPUME' ft '* (NOHEADER | TAKE | VAR FILESPEC'
  40. If rc ^= 0 Then Return
  41. Parse Var filespec . ft fm .
  42.  
  43. 'GENMSG GOPUME' ft fm 'GOP' lang '(NOLIST'
  44. If rc ^= 0 Then Return
  45.  
  46. If lang ^= "" Then Do
  47.     Address "COMMAND" 'STATE GOPUME TEXT' fm
  48.     If rc ^= 0 Then Return
  49.     ft = "TXT" || lang
  50.     'ERASE GOPUME' ft fm
  51.     If rc ^= 0 Then Return
  52.     'RENAME GOPUME TEXT' fm '=' ft fm
  53.     If rc ^= 0 Then Return
  54.     End  /*  If  ..  Do  */
  55.  
  56. 'SET LANG' lang '(ADD GOP USER'
  57. If rc ^= 0 Then Return
  58. 'XMITMSG 9999 (APPLID GOP CALLER GEN ERRMSG'
  59.  
  60. Return
  61.  
  62.  
  63.  
  64. /* --------------------------------------------------------------- INDEX
  65.  */
  66. INDEX:
  67.  
  68. Parse Var args menu .
  69. 'PIPE GOPSRVLS' menu '| GOPGENFL | > VMGOPHER FILELIST A'
  70. If rc ^= 0 Then Return
  71. Say 'WISHLG' menu 'FILELIST A' menu 'GOPINDEX A'
  72. 'WISHLG VMGOPHER FILELIST A' menu 'GOPINDEX A'
  73. If rc ^= 0 Then Return
  74. 'ERASE VMGOPHER FILELIST A'
  75. If rc ^= 0 Then Return
  76.  
  77. /*  menu "index created"  */
  78. /*  'XMITMSG ??? MENU (APPLID GOP CALLER GEN ERRMSG'  */
  79.  
  80. Return
  81.  
  82.  
  83.  
  84. /* ---------------------------------------------------------------- REXX
  85.  */
  86. REXX:
  87.  
  88. Parse Var args fn ft .
  89. 'EXEC EXECUPDT' fn ft '(CTL VMGOPHER'
  90.  
  91. Return
  92.  
  93.  
  94.  
  95. /* ---------------------------------------------------------------- EDIT
  96.  */
  97. EDIT:
  98.  
  99. Parse Var args fn ft fm .
  100. 'XEDIT' fn '$' || ft fm '(CTL VMGOPHER'
  101.  
  102. Return
  103.  
  104.